home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / iritsm3s.zip / IRIT.EL < prev    next >
Lisp/Scheme  |  1991-05-19  |  6KB  |  160 lines
  1. ; 
  2. ; irit.el - Definitions of IRIT mode for emacs editor.
  3. ; 
  4. ; Author:    Gershon Elber
  5. ;         Computer Science Dept.
  6. ;         University of Utah
  7. ; Date:    Tue May 14 1991
  8. ; Copyright (c) 1991, Gershon Elber
  9. ;
  10. ; This file defines an environment to run edit and execute IRIT programs.
  11. ; Such a program should have a '.irt' extension in order it to be in
  12. ; irit-mode major mode. Two new functions are provided to communicate
  13. ; between the editted file and the solid modeller:
  14. ; 1. send-line-to-irit - sends a single line to the solid modeller for
  15. ;    execution. A line is defined from current position to the next
  16. ;    semicolon ';'. If however several commands exists on the same line
  17. ;    they will all be send as one line.
  18. ;    Bounded to Meta-E by default.
  19. ; 2. send-region-to-irit - sends the region from the current mark (mark-marker)
  20. ;    to current position (point-marker) to the solid modeller. This function
  21. ;    is convenient for sending a large block of commands.
  22. ;    Bounded to Meta-R by default.
  23. ; Both functions checks for existance of a buffer named irit-solid-modeller
  24. ; and a process named "irit" hooked to it, and will restart a new process
  25. ; or buffer if none exists. The program to execute as process "irit" is
  26. ; defined by the irit-program constant below.
  27. ;
  28.  
  29. (defvar irit-program "irit"
  30.   "*The executable to run for irit-solid-modeller buffer.")
  31.  
  32. (defvar irit-echo-program nil
  33.   "*Control echo of executed commands to irit-solid-modeller buffer.")
  34.  
  35. (defvar irit-mode-map nil "")
  36. (if irit-mode-map
  37.     ()
  38.   (setq irit-mode-map (make-sparse-keymap))
  39.   (define-key irit-mode-map "\M-e" 'send-line-to-irit)
  40.   (define-key irit-mode-map "\M-r" 'send-region-to-irit))
  41.  
  42. ;;;
  43. ;;; Define the irit-mode
  44. ;;;
  45. (defun irit-mode ()
  46.   "Major mode for editing and executing IRIT files.
  47.  
  48. see send-line-to-irit and send-region-to-irit for more."
  49.   (interactive)
  50.   (use-local-map irit-mode-map)
  51.   (setq major-mode 'irit-mode)
  52.   (setq mode-name "Irit")
  53.   (run-hooks 'irit-mode-hook))
  54.  
  55. ;;;
  56. ;;; Define send-line-to-irit - send from current cursor position to next
  57. ;;; semicolin detected.
  58. ;;;
  59. (defun send-line-to-irit ()
  60.   "Sends one line of code from current buffer to the IRIT program.
  61.  
  62. Use to execute a line in the IRIT solid modeller. A line is anything
  63. that is terminated by a semicolon, but is at least one line of text so
  64. multiple commands per line (with several semicolons) are still
  65. considered a single line.
  66.  
  67. The IRIT solid modeller buffer name is irit-solid-modeller and the 
  68. process name is 'irit'. If none exists, a new one is created.
  69.  
  70. The name of the irit program program to execute is stored in irit-program
  71. and may be changed."
  72.   (interactive)
  73.   (if (equal major-mode 'irit-mode)
  74.     (progn
  75.       (make-irit-buffer)        ; In case we should start a new one.
  76.       (let ((start-mark (point-marker)))
  77.     (search-forward ";")
  78.     (let ((end-one-mark (point-marker)))
  79.       (goto-char start-mark)
  80.       (beginning-of-line)
  81.       (next-line 1)
  82.       (let* ((crnt-buffer (buffer-name))
  83.              (end-two-mark (point-marker))
  84.              (end-max-mark (max end-one-mark end-two-mark))
  85.          (string-copy (buffer-substring start-mark end-max-mark)))
  86.         (switch-to-buffer-other-window (get-buffer "irit-solid-modeller"))
  87.         (end-of-buffer)
  88.         (if irit-echo-program
  89.           (insert string-copy))
  90.         (set-marker (process-mark (get-process "irit")) (point-marker))
  91.         (if (not (pos-visible-in-window-p))
  92.           (recenter 3))
  93.         (switch-to-buffer-other-window (get-buffer crnt-buffer))
  94.         (process-send-region "irit" start-mark end-max-mark)
  95.         (goto-char end-max-mark)
  96.         (if (equal "\n" (buffer-substring (point-marker)
  97.                           (+ 1 (point-marker))))
  98.           (process-send-string "irit" "\n"))  
  99.         (if (> end-one-mark end-two-mark)
  100.           (forward-char 1))))))
  101.     (message "Should be invoked in irit-mode only.")))
  102.  
  103. ;;;
  104. ;;; Define send-region-to-irit - send from current cursor position to
  105. ;;; current marker.
  106. ;;;
  107. (defun send-region-to-irit ()
  108.   "Sends a region of code from current buffer to the IRIT program.
  109.  
  110. When this function is invoked on an IRIT file it send the region from current
  111. point to current mark to the irit solid modeller.
  112.  
  113. The IRIT solid modeller buffer name is irit-solid-modeller and the
  114. process name is 'irit'. If none exists, a new one is created.
  115.  
  116. The name of the irit program program to execute is stored in irit-program
  117. and may be changed."
  118.   (interactive)
  119.   (if (equal major-mode 'irit-mode)
  120.     (progn
  121.       (make-irit-buffer)     ; In case we should start a new one.
  122.       (copy-region-as-kill (mark-marker) (point-marker))
  123.       (let ((crnt-buffer (buffer-name)))
  124.     (switch-to-buffer-other-window (get-buffer "irit-solid-modeller"))
  125.     (end-of-buffer)
  126.     (if irit-echo-program
  127.       (yank))
  128.     (set-marker (process-mark (get-process "irit")) (point-marker))
  129.     (if (not (pos-visible-in-window-p))
  130.       (recenter 3))
  131.     (switch-to-buffer-other-window (get-buffer crnt-buffer))
  132.     (process-send-region "irit" (mark-marker) (point-marker))))
  133.     (message "Should be invoked in irit-mode only.")))
  134.  
  135. ;;;
  136. ;;; Switch to "irit-solid-modeller" buffer if exists. If not, creates one and
  137. ;;; execute the program defined by irit-program.
  138. ;;;
  139. (defun make-irit-buffer ()
  140.   "Switch to iris-solid-modeller buffer or create one if none exists"
  141.   (interactive)
  142.   (if (get-buffer "irit-solid-modeller")
  143.     (if (not (get-process "irit"))
  144.       (progn
  145.     (message "Starting IRIT solid modeller...")
  146.     (start-process "irit" "irit-solid-modeller" irit-program)
  147.     (process-send-string "irit" "\n")
  148.     (message "Done.")))
  149.     (progn
  150.       (message "Starting IRIT solid modeller...")
  151.       (start-process "irit" "irit-solid-modeller" irit-program)
  152.       (process-send-string "irit" "\n")
  153.       (message "Done."))))
  154.  
  155. ;;;
  156. ;;; Autoload irit-mode on any file with irt extension. 
  157. ;;;
  158. (setq auto-mode-alist (append '(("\\.irt$" . irit-mode))
  159.                   auto-mode-alist))
  160.